10 REM <CTRL-J><CTRL-J>MAKE GPLE.LC COMPATIBLE<CTRL-M> WITH FLEX TYPE<CTRL-J><CTRL-J>
20 IF PEEK(1005) < >2 THEN PRINT "GLOBAL PLE.LC IS NOT LOADED": STOP
30 FOR I = 0 TO 17: READ V: POKE 768 +I,V: NEXT : CALL 768
40 IF PEEK(768) THEN PRINT "THIS IS GPLE V4.0 OR LATER": PRINT "USE CONFIG GPLE WITH FLEXTYPE.VID": STOP
50 DATA 44,139,192,173,3,208,201,76,240,5,169,0,141,0,3,76,212,182
60 FOR I = 0 TO 169: READ V: POKE 768 +I,V: NEXT
70 I = 768:V = PEEK(975)
80 POKE I +69,V: POKE I +105,V: POKE I +123,V: POKE I +151,V
90 FOR I = 0 TO 19: READ V: POKE 748 +I,V: NEXT : CALL 748
100 REM <CTRL-J><CTRL-J>PATCH GPLE BUG<CTRL-J><CTRL-J>
110 FOR I = 0 TO 54: READ V: POKE 768 +I,V: NEXT
120 CALL 768: IF NOT PEEK(64) THEN PRINT "THIS VERSION OF GPLE NOT RECOGNIZED!": STOP
130 & : END
140 REM <CTRL-J><CTRL-J>VIDEO DRIVER<CTRL-J><CTRL-J>
150 DATA 128,0,76,61,208,76,45,208,76,87,208,76,96,208,76,114,208,76,143,208,141,167,208,165,50,72,169,63,133,50,173,167,208,9,64,32,87,208,104,133,50,173,167,208,96,169,149,32,87,208,169,240,141,89,208,169
160 DATA 253,141,92,208,96,140,168,208,142,169,208,32,15,8,165,54,141,89,208,165,55,141,92,208,174,169,208,172,168,208,96,72,169,240,72,169,253,76,0,209,72,140,168,208,142,169,208,32,6,8,174,169,208,172,168,208
170 DATA 104,96,72,140,168,208,142,169,208,32,9,8,174,169,208,172,168,208,104,201,141,208,7,169,157,32,87,208,169,141,96,140,168,208,142,169,208,32,12,8,165,234,224,1,208,2,41,31,174,169,208,172,168,208,96,0,0,0
180 REM <CTRL-J><CTRL-J>STORE<CTRL-J><CTRL-J>
190 DATA 44,139,192,44,139,192,160,0,185,0,3,153,0,208,200,208,247,76,212,182
200 REM <CTRL-J><CTRL-J>SEARCH<CTRL-J><CTRL-J>
210 DATA 44,139,192,169,216,133,65,169,0,133,64,160,0,177,64,201,164,208,14,200,177,64,201,36,208,7,200,177,64,201,76,240,7,230,64,208,230,76,212,182,44,139,192,160,0,169,104,145,64,200,145,64,76,212,182
